home *** CD-ROM | disk | FTP | other *** search
/ Power Tools for Macintosh / Power Tools for Macintosh (SoftBit)(1992).iso / Da's / A-B / Art Browser 1.0b6 / Art Browser 1.0b6.rsrc / WSTR_-16000 < prev   
Text File  |  1987-06-24  |  301b  |  10 lines
  1. +2 dict begin
  2. /d exch def
  3. /s exch def
  4. d 0 get d 1 get translate
  5. d 2 get d 0 get sub s 2 get s 0 get sub div
  6. d 3 get d 1 get sub s 3 get s 1 get sub div
  7. 2 copy abs exch abs exch gt{exch 1 index abs exch 0 lt{neg}if exch}{1 index abs exch 0 lt{neg}if}ifelse scale
  8. s 0 get neg s 1 get neg translate
  9. end
  10.